use GDBM_File;


tie(%LEX,GDBM_File,$ARGV[0],&GDBM_WRCREAT,0644);

while($line = <STDIN>)
{
	chomp($line);
	($main,$prob) = split(/\s+\=\>\s+/,$line);
	$LEX{$main} = $prob;
}
